object frmUpdateAlert: TfrmUpdateAlert
  Left = 595
  Top = 423
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #25552#37266
  ClientHeight = 178
  ClientWidth = 342
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object pnlTop: TPanel
    Left = 0
    Top = 0
    Width = 342
    Height = 25
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object pnlR: TPanel
      Left = 80
      Top = 0
      Width = 262
      Height = 25
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 0
      object btnClose: TSpeedButton
        Left = 144
        Top = 2
        Width = 97
        Height = 20
        Hint = #19979#27425#19981#20877#25552#37266'...'
        Caption = #25105#30693#36947#20102
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        OnClick = btnCloseClick
      end
    end
  end
  object edtInfo: TRichEdit
    Left = 0
    Top = 25
    Width = 342
    Height = 153
    Align = alClient
    BevelOuter = bvNone
    BorderStyle = bsNone
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 1
  end
  object QAlert: TADOQuery
    Parameters = <
      item
        Name = 'subsys'
        DataType = ftString
        Size = 100
        Value = #39#39
      end
      item
        Name = 'subsys1'
        DataType = ftString
        Size = 100
        Value = #39#39
      end
      item
        Name = 'emp_sn'
        DataType = ftString
        Size = 100
        Value = #39#39
      end>
    SQL.Strings = (
      '   select * from sys_sys_update_alert (nolock)'
      '        where (subsys = :subsys  or subsys = '#39'%'#39') and'
      '              enable = '#39'1'#39' and '
      '              isnull(memo,'#39#39') <> '#39#39' and'
      
        '              id not in (select id from sys_sys_update_alert_log' +
        ' (nolock) '
      
        '                         where (subsys = :subsys1  or subsys = '#39 +
        '%'#39') and'
      #9#9#9' emp_sn = :emp_sn'
      '                         )'
      '        order by sort_sn')
    Left = 240
    Top = 56
  end
  object QAlertLog: TADOQuery
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      ' select top 0 *  from sys_sys_update_alert_log(nolock)')
    Left = 240
    Top = 112
  end
  object QServerDatetime: TADOQuery
    Parameters = <>
    SQL.Strings = (
      'select convert(char(19), getdate(), 121) ServerDT')
    Left = 56
    Top = 72
  end
  object tmrClose: TTimer
    Enabled = False
    Interval = 10000
    OnTimer = tmrCloseTimer
    Left = 144
    Top = 32
  end
end
